home *** CD-ROM | disk | FTP | other *** search
/ Digital News 2 / Digital_News_2_1988_-_de_Side_B.d64 / tape-list 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  575b  |  24 lines
  1. 10 rem tape list c-64
  2. 20 rem (c) 1984 by
  3. 30 rem klaus raczek
  4. 40 rem d-5140 erkelenz
  5. 100 print"[147]   tape list  "
  6. 110 print" band fertig ?"
  7. 120 print" <return[146]>"
  8. 130 poke198,0:wait198,1
  9. 140 print" press play on tape"
  10. 145 ifpeek(1)=55then145
  11. 148 print"[145] searching          "
  12. 150 open1,1,0
  13. 160 n$="":fori=0to15:n$=n$+chr$(peek(833+i)):next
  14. 170 a=peek(829)+256*peek(830)
  15. 180 e=peek(831)+256*peek(832)
  16. 190 f=peek(828)
  17. 200 print"----------------------";
  18. 210 iff=1thenprint"basic-programm:":print""n$
  19. 220 iff=3thenprint"maschinenprogramm:":print""n$
  20. 230 iff=4thenprint"seqentielle datei:":print""n$
  21. 240 iff=1orf=3thenprint"laenge:"e-a+1"bytes"
  22. 250 iff=3thenprint"startadesse:"a
  23. 260 close1:goto150
  24.